-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x0 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2805
-- card count: 2
-- first card id: 3242
-- list block id: 4826
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 2
-- free size: 9056 bytes
-- total size: 24576 bytes
-- stack block size: 8192 bytes
-- created by hypercard version: 0x00000000
-- compacted by hypercard version: 0x00000000
-- modified by hypercard version: 0x00000000
-- opened by hypercard version: 0x00000000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x8010022001084004
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0xFFFF0000FFFF0000
-- patterns[18]: 0x9999999999999999
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0x993366CC993366CC
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x8888888888888888
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF000000FF000000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
--
--
--   This stack is copyrighted 1987 by Howard Bornstein
--   Design Equilibrium, Menlo Park, CA 94025.  415-328-9181
--
--   Permission is granted for non-commercial distribution.
--
--   This is NOT an example of good HyperTalk programming!
--   It is simply a quick hack to display some of the built-in animation
--   capabilities within HyperCard.  You can do some interesting
--   animation without creating huge stacks of cards and flipping
--   through them.  This stack has only two cards.  Everything is
--   controlled from this script.
--
--


on openstack
  set the userlevel to 5        -- Let people poke around in here
  hide menubar                  -- clean up the scene
  hide msg
  go to card "DEQ"
  repeat until the mouseClick   -- keep playing script until mouse click
    animate
  end repeat                    -- play it again, Sam.
end openstack

On closestack
  go to card "DEQ"
  choose select tool            -- restore things back to normal
  domenu "select all"
  domenu "Clear Picture"
  choose browse tool
end closestack

on animate                   -- This does all the work

  put 40 into dspeed         -- set the drag speed
  choose select tool
  domenu "select all"
  domenu "Clear Picture"     -- start out clean

  -- do the "D"
  set lockscreen to true     -- don't show what we're doing
  push card                  -- "I'll be back"
  set the dragspeed to 0     -- So it doesn't take long selecting it
  go to  card "parts"        -- go get the "d"
  drag from 150,176 to 21,336 with optionkey  -- select it in lasso mode
  domenu "Copy Picture"
  pop card                   -- get back to where you once belonged
  domenu "Paste Picture"     -- bring it to main card
  set lockscreen to false    -- show it
  set the dragspeed to dspeed
  drag from 89,236 to 89,132 -- do the first move
  set dragspeed to 10
  wait 2 seconds             -- split it
  drag from 89,132 to 101,132 with optionkey -- the option key makes a
  --                                            duplicate


  -- Do the "Q"
  choose select tool
  set dragspeed to 0
  set lockscreen to true
  push card
  go to  card "parts"

  drag from 298,165 to 178,4 with optionkey
  domenu "Copy Picture"
  pop card
  set lockscreen to false

  domenu "Paste Picture"
  set the dragspeed to dspeed
  drag from 241,9 to 241,132
  set dragspeed to 10
  wait 2 seconds
  drag from 241,132 to 229,132 with optionkey   -- split it


  -- Do the E
  set dragspeed to 0
  set lockscreen to true
  push card
  go to  card "parts"

  choose select tool
  drag from 380,13 to 494,123 with optionKey
  domenu "Copy Picture"
  pop card
  set lockscreen to false

  domenu "Paste Picture"
  set the dragspeed to dspeed
  drag from 442,19 to 160,127
  set dragspeed to 10
  wait 2 seconds
  drag from 160,127 to 174,127 with optionkey    -- split it


  -- fade it out and in
  wait 2 seconds
  set dragspeed to 0
  choose select tool
  drag from 20,60 to 305,296 with optionkey -- Select it in lasso mode
  domenu "Copy picture"

  repeat 50 times
    domenu "lighten"   -- fade it out
  end repeat

  wait 2 seconds

  repeat 50 times
    domenu "darken"   -- bring it back.  This works because we selected
    -- the item with the lasso and there are no
    -- enclosed spaces.
  end repeat

  domenu "paste Picture" -- This restores the image completely.
  click at 1,1           -- This puts the image on the page,
  --                        otherwise the lasso is still selected

  drag from 20,60 to 305,296 with commandkey  -- Select it again
  wait 2 seconds
  domenu "Trace Edges"
  domenu "Trace Edges"
  domenu "Trace Edges"
  domenu "Trace Edges"
  wait 2 seconds
  domenu "Undo"
  wait 2 seconds
  --domenu "Invert"
  --wait 4 seconds
  --domenu "Invert"

  -- get the DEQ name/address
  choose select tool
  set lockscreen to true
  push card
  go to card "parts"

  drag from 149,239 to 354,319 with optionkey
  domenu "Copy Picture"
  pop card
  set lockscreen to false

  domenu "Paste Picture"
  set dragspeed to dspeed
  drag from 159,247 to 72,247       -- Position it

  --
  -- Do the consulting message
  --
  wait 2 seconds

  choose text tool
  set textsize to 24      -- if you don't have Times 24 pt, installed
  --                         this will not look too good.
  set textfont to "Times"
  set textstyle to extend,Bold
  click at 20,57
  type "Full Service Macintosh Consulting"

  --
  -- get the box
  --
  choose select tool
  set dragspeed to 0
  set lockscreen to true
  push card
  go to card "parts"

  drag from 356,130 to 502,333 with commandkey
  domenu "Copy Picture"
  pop card
  set lockscreen to false

  domenu "Paste Picture"
  set dragspeed to dspeed
  drag from 362,136 to 319,136  -- position it properly
  drag from 319,136 to 319,92   --     "     "     "

  --
  -- Now display the services
  --

  put 274 into bottom  -- The position in box to type services
  put 20 into spacing  -- Spacing between services as they move up

  set dragspeed to 120
  set textfont to "New York"
  set textstyle to "plain"
  set textsize to 14
  choose text tool
  click at 331,260      -- This is where they all start
  Type "• Hardware"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey  -- This selects it after
  --                                               it is typed.
  drag from 333,254 to 333,bottom-(spacing*8)   -- Compute how far to
  --                                               drag it up.

  choose text tool
  click at 331,260
  type "• Software"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*7)

  choose text tool
  click at 331,260
  type "• HyperCard"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*6)

  choose text tool
  click at 331,260
  type "• Databases"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*5)

  choose text tool
  click at 331,260
  type "• Networks"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*4)

  choose text tool
  click at 331,260
  type "• Graphics"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*3)

  choose text tool
  click at 331,260
  type "• Training"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*2)

  choose text tool
  click at 331,260
  type "• File Recovery"
  choose select tool
  drag from 329,249 to 439,265 with CommandKey
  drag from 333,254 to 333,bottom-(spacing*1)
  choose browse tool

  wait 8 seconds

end animate